home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2000 #1
/
Amiga Plus CD - 2000 - No. 1.iso
/
t
/
BEGIN.bak.1
< prev
next >
Wrap
Text File
|
1999-12-03
|
677b
|
23 lines
;Im Moment funktioniert der Which-Check nur, wenn C: KEIN ROOT ist, also nicht
; C:=Workbench:, sondern C: = Workbench:c/ <- wegen dem Schrägstrich
if not exists ram:t
makedir ram:t
endif ;Siehste, so einfach geht das! :)
assign exists AFCD: >NIL:
IF warn
requestchoice "AmigaPlus (C)" "Die CD ist nicht angemeldet!*nBitte zuerst Quickstart starten." "Exit" >NIL:
quit;Keine CD angemeldet
endif
assign vorher: ""
assign guis: ""
set whichcount 0 ;Anzahl der Dateien im falschen Dir
delete t:filess t:reqtools >NIL: ;Killt temporäre Dateien!
setenv .val 0 ;Für G4C
set updater 3
Gui vorher:Gauge.gc ;Startet Anzeige
wait 1
setenv .val 100
gui vorher:sub.gc
wait 1
setenv .val 0